home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / emacs / emacs1857 / bin_d2.zoo / emacs.rc next >
Lisp/Scheme  |  1991-12-02  |  3KB  |  83 lines
  1. ;; emacs.rc -- initialization file for gnu-emacs
  2. ;; Author          : Edgar Roeder
  3. ;; Created On      : Mon Dec 11 01:46:40 1989
  4. ;; Last Modified By: unknown
  5. ;; Last Modified On: Fri Sep 27 01:24:16 1991
  6. ;; Update Count    : 36
  7. ;; Status          : ok
  8.  
  9. ;; set some defaults
  10. (setq completion-ignored-extensions    ; add st-specific extensions
  11.       (append '(".prg" ".tos" ".ttp"    ; programs
  12.         ".acc" ".app" ".mmx"    ; other executables
  13.         ".rsc"            ; resources
  14.         ".olb" ".lib"        ; object code libraries
  15.         ".bak"            ; backup files
  16.         ".arc" ".lzh" ".zoo"    ; packed archives
  17.         ".pic" ".doo" ".spc" ".neo"
  18.         ".pi1" ".pi2" ".pi3"    ; picture files
  19.         )
  20.           completion-ignored-extensions))
  21. (setq default-major-mode 'text-mode)
  22. (setq-default c-mode-hook
  23.           '(lambda ()        ; for C mode:
  24.          (turn-on-auto-fill)    ; use auto-fill
  25.          (defvar fill-loaded nil)
  26.          (if fill-loaded nil
  27.            (load-library "c-fill") ; load c-comment
  28.            (setq fill-loaded t)))) ; (only once!)
  29.  
  30. (setq ctl-arrow "dummy")           ; set to non nil/t for 8-bit chars
  31.  
  32.  
  33. ;; define function keys term/atari.el
  34. (load "term/atari.el")
  35. (setq meta-flag 't)
  36.  
  37. ;; define utility functions
  38. ;
  39. ;
  40. (defun show-matching-paren (arg)
  41.   "Act as if a close-paren had been self-inserted."
  42.   (interactive "p")
  43.   (forward-char)
  44.   (blink-matching-open)
  45.   (backward-char))
  46.  
  47. (defun display-mem ()
  48.   (interactive)
  49.   (message "Memory usage: %d bytes free, %d bytes used (%d%%)"
  50.        data-bytes-free data-bytes-used
  51.        (/ (* data-bytes-used)
  52.           (/ (+ data-bytes-used data-bytes-free) 100))))
  53.  
  54. ;; personalize the keypad key bindings
  55. ;       Must be done after (load 'term/atari.el)
  56. (define-key function-keymap  "\C-a" 'display-mem)    ; F1 key 
  57. (define-key function-keymap  "\C-b" 'goto-line)      ; F2 key
  58. (define-key function-keymap  "\C-c" 'what-line)      ; F3 key
  59. (define-key function-keymap  "I"    'overwrite-mode) ; Insert key
  60.  
  61. ;;; Commands added by calc-private-autoloads on Wed Nov 20 22:37:51 1991.
  62. (autoload 'calc-dispatch       "calc" "Calculator Options" t)
  63. (autoload 'full-calc           "calc" "Full-screen Calculator" t)
  64. (autoload 'full-calc-keypad       "calc" "Full-screen X Calculator" t)
  65. (autoload 'calc-eval           "calc" "Use Calculator from Lisp")
  66. (autoload 'defmath           "calc" nil t t)
  67. (autoload 'calc               "calc" "Calculator Mode" t)
  68. (autoload 'quick-calc           "calc" "Quick Calculator" t)
  69. (autoload 'calc-keypad           "calc" "X windows Calculator" t)
  70. (autoload 'calc-embedded       "calc" "Use Calc inside any buffer" t)
  71. (autoload 'calc-embedded-activate  "calc" "Activate =>'s in buffer" t)
  72. (autoload 'calc-grab-region       "calc" "Grab region of Calc data" t)
  73. (autoload 'calc-grab-rectangle       "calc" "Grab rectangle of data" t)
  74. (autoload 'edit-kbd-macro       "macedit" "Edit Keyboard Macro" t)
  75. (autoload 'edit-last-kbd-macro       "macedit" "Edit Keyboard Macro" t)
  76. (autoload 'read-kbd-macro       "macedit" "Read Keyboard Macro" t)
  77. (setq load-path (append load-path (list "/dev/D/bin/emacs/lisp/calc-20")))
  78. (setq Info-directory "/dev/D/bin/emacs/lisp/calc-20")
  79. (setq calc-info-filename "calc.info")
  80. (global-set-key "\e#" 'calc-dispatch)
  81. ;;; End of Calc autoloads.
  82.  
  83.